home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 1 / MacMania 1.toast / Games / Games'More / C-D / DM_3000 / DM 3000 / card_23164.txt < prev    next >
Encoding:
Text File  |  1988-06-06  |  2.7 KB  |  133 lines
  1. -- card: 23164 from stack: in
  2. -- bmap block id: 6039
  3. -- flags: 4000
  4. -- background id: 2604
  5. -- name: PET/SHOP
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 2000
  11. -- rect: left=344 top=116 right=139 bottom=364
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 2730 / 2730
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: S/TO/OUT/PET
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   go to card "OUT/PET"
  23. end mouseUp
  24.  
  25.  
  26.  
  27.  
  28. -- part 2 (button)
  29. -- low flags: 00
  30. -- high flags: 2000
  31. -- rect: left=143 top=67 right=96 bottom=242
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: EMPTY/CAGE
  40. ----- HyperTalk script -----
  41. on mouseUp
  42.   put "This cage is empty." into Msg
  43.   wait 3 seconds
  44.   doMenu "Message"
  45. end mouseUp
  46.  
  47.  
  48.  
  49. -- part 3 (button)
  50. -- low flags: 00
  51. -- high flags: 2000
  52. -- rect: left=277 top=136 right=235 bottom=305
  53. -- title width / last selected line: 0
  54. -- icon id / first selected line: 0 / 0
  55. -- text alignment: 1
  56. -- font id: 0
  57. -- text size: 12
  58. -- style flags: 0
  59. -- line height: 16
  60. -- part name: EMPTY/CAGE
  61. ----- HyperTalk script -----
  62. on mouseUp
  63.   put "This cage is empty." into Msg
  64.   wait 3 seconds
  65.   doMenu "Message"
  66. end mouseUp
  67.  
  68.  
  69.  
  70. -- part 4 (button)
  71. -- low flags: 00
  72. -- high flags: 2000
  73. -- rect: left=278 top=67 right=96 bottom=306
  74. -- title width / last selected line: 0
  75. -- icon id / first selected line: 0 / 0
  76. -- text alignment: 1
  77. -- font id: 0
  78. -- text size: 12
  79. -- style flags: 0
  80. -- line height: 16
  81. -- part name: GET/REPEL
  82. ----- HyperTalk script -----
  83. on mouseUp
  84.   global inventory
  85.   if "Dyno-Go" is in inventory then
  86.     put "The cage is empty." into Msg
  87.     wait 3 seconds
  88.     doMenu "Message"
  89.   else
  90.     put ", a can of Dyno-Go" after inventory
  91.     put inventory into background field "ShowMe"
  92.     put "You find a large can of reptile repellant." into Msg
  93.     wait 3 seconds
  94.     doMenu "Message"
  95.   end if
  96. end mouseUp
  97.  
  98.  
  99.  
  100. -- part 5 (button)
  101. -- low flags: 00
  102. -- high flags: 2000
  103. -- rect: left=144 top=135 right=233 bottom=241
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 0 / 0
  106. -- text alignment: 1
  107. -- font id: 0
  108. -- text size: 12
  109. -- style flags: 0
  110. -- line height: 16
  111. -- part name: ANTS
  112. ----- HyperTalk script -----
  113. on mouseUp
  114.   global inventory
  115.   if "insect spray" is in inventory then
  116.     put "You kill a nest of ants with your insect spray." into Msg
  117.     wait 3 seconds
  118.     doMenu "Message"
  119.   else
  120.     visual effect venetian blinds
  121.     go to card "FANGS"
  122.   end if
  123. end mouseUp
  124.  
  125.  
  126.  
  127. -- part contents for background part 6
  128. ----- text -----
  129. You are carrying: empty multicorder
  130.  
  131. -- part contents for background part 8
  132. ----- text -----
  133. 0